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functie/symbool 
U wordt lid door storting van de contributie op het 
rekeningnr. 230-0045353-74 van de Generale 
Bankmaatschappij, Leuven, via bankinstelling of 
postgiro 
Het abonnement loopt van januari tot december. 


back-space 
TAB 

linefeed 

clear screen 
CURSOR UP 
CURSOR DOWN 
CURSOR LEFT 
CURSOR RIGHT 
space-bar 


DAlnamic verschijnt de pare maanden. 
Bijdragen zijn steeds welkom. 





CORRESPONDENTIE ADRESSEN. 
Redactie en software bibliotheek 


Wilfried Hermans pijltje rechts 


Heide 4 pijltje links 
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Kredietbank Westmeerbeek verticale lijn 
nr. 406-3016141-33 horizontale lijn 
BTW : 420.840.834 6 hor. lijnen 
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Bruno Van Rompaey 
Bovenbosstraat 4 

B 3044 Haasrode 
België 

tel. : 016/46.10.85 





Generale Bankmaatschappij Leuven 
nr. 230-0045353-74 


Inzendingen : Games & Strategy 
Frank Druijff 
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NL 3021 EA Rotterdam 
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Westmeerbeek, april 83 


Beste leden, 


Even zag het er naar uit dat we onder tijdsdruk weer naar de noodrem 
van het dubbel-nummer zouden moeten grijpen. Gelukkig kregen we de 
laatste dagen nog zo veel kant-en-klare copij dat nummer 15 nog net 
in april de deur uit kan. Terwijl de persen draaien zijn we dan weer 
bezig aan nummer 16 ... verveling is er niet bij met deze hobby ! 

Met veel genoegen kunnen we weer terugblikken op onze succesvolle 
bijeenkomst van 9 april jongstleden Meer dan 600 bezoekers,veel 
programma's, veel projecten en een fijne barbecue. Blijkbaar was er 
zoveel te zien dat weinigen de tijd vonden om eens gaan te snuffelen 
in onze tijdschriften-bibliotheek. We danken allen die hun bijdrage 
aan deze bijeenkomst hebben geleverd. Speciale dank en bewondering 
voor de vele buitenlandse bezoekers (sommigen hebben hun nachtrust 
moeten opofferen om tijdig Tongelsbos te bereiken!). 

Eindelijk schijnen de mensen van DAI-INDATA begrepen te hebben dat er 
wat promotie nodig is rond de DAI-computer. De stand van INDATA op de 
eerste HCC-dagen in,Belgié was zeer gelukt, de belangstelling van het 
publiek was navenant. We hopen dat we U met nummer 16 de kleurenfolder 
kunnen meesturen die onlangs gedrukt is. 

In dit nummer merkt U dat de vertaaldienst aardig op gang is gekomen. 
Nederlandstalige lezers mogen deze bladzijden overslaan, de vele bui- 
tenlandse leden zullen deze bijdragen zeker op prijs stellen. 
Mogelijk komen we vanaf nummer 16 tot een integratie met de Duitse 
gebruikersgroep, we zijn er van overtuigd dat dit alleen maar kan bijdragen 
tot de verhoging van de kwaliteit van ons blad. 


Dear members, 


The meeting of 9th april was very succesfull : there were more than 600 
visitors. Some of them were very tired after the long trip they made 

to reach Tongelsbos! On page 143 you will find some photos of the meeting. 
INDATA: is making good promotion for our computer : they had a beautiful 
stand on HCC-meeting Belgium (first edition : over 8000 visitors). 

We hope to send you the color-brochure with newsletter 16. 

In this issue you will find more results of our translation service: 
C.Dufour and D.atherton and collaborators have done a very good job! 

It is possible that there will be an integration with the German club 

from newsletter 16 on: I'm sure this will lead to an even better magazine! 
This will mean that there will be one big DAI-users-family in Europe, 

this will result in a lot of information, a lot of software and a better 
support for our DAIpc. For the moment, there is only one weak point on 

the map of Europe : Paris, with Multisoft and DAI club france. Both 
organisations (same address!!) continue to distribute software that belongs 
to DAInamic,DAInamic Germany or other clubs. For the moment they even offer 
very expensive and illegal copies of the famous firmwarebook of Jan Boerrigter! 
We strongly advise to order the firmwarebook from Mr Boerrigter: legal 
copies are more reliable and cheaper ... the same applies to our software. 
If someone has ideas or suggestions how to stop this piracy, please contact 
us, we will not hesitate to start legal procedures... 


W.Hermans 
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Remark Redactie 
Bladwijzer 
Games Collection 10 & 11 
Defect +5V T.Verberkt 
Brief Staf Van Hoecke 
DAInamic Info France C.Dufour 
Tips — RS232 - ml in REM UK | D.Atherton 
8080 assembly language programming D.Atherton 
Character Invasion W.Hermans 
Programmeertechnieken F.Druijff 
DAI Restart routines N.Looije 
For sale E.Zahner 
BASIC V1.0 V1.1 D.Atherton 
DAI pc's communication - modem G.Gruiters 
Schreibschrift - Writing characters F.Cassebaum 
- 3-D drawings J.Roelants 
Audio-cassette interface : reading J.Boerrigter 
Cube rotation — translating in space 


Messages d'erreur : C.Dufour 


Sending in programs D.Atherton 
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Symmetrische waaiers - zandloper - bloc in reverse 
Run linenumber with BASIC V1.0 G.Gruiters 
DAI Video Hardware D.Atherton 
CATALOG : DAInamic software library 





HOW TO ORDER DAInamic SOFTWARE 
1/ for Belgium : banc order, cheque , cash 
2/ foreign countries : due to the very high charges with 
other modes of payment, we will only accept : 
- gurocheque in Belgian francs 
- international postal money order ( in your 
local post office).Note your order and address 
in CAPITALS on the postal card please ! 
both payments to : DAInamic V.Z.W Heide 4 3171 WESTMEERBEEK 
BELGIUM. 


DAInamic subscription rates : 


Benelux : 900 Bfr 
Europe : 1000 Bfr 
Outside Europe : 1400 Bfr 
(Air Mail) 
pay to : Dainamic SUBSCRIPTIONS 
B.Van rompaey * by check or 
Bovenbosstraat 4 * on Bancaccount nr 230-0045353-74 
3044 HAASRÜDE-BELGIUM of Generale Bank Leuven c/o DAInamic 

















CATALOG 
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A beautiful PACMAN-alike cargame.You control your car with 
the cursorkeys, spacebar to accelerate/slowdown. 
Try to drive as many miles as possible but watch out for 
the collisioncar'! 

keyboard 


L 
Ü 
L 
L 

1 
1 
N 





2/ MINIGOLF R.SIP 
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Up to 8 players can participate this realistic minigolf- 
game. The game contains 14 different fields! 
paddletevent 
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3/ SPELONK M. Hooykaas 


Try to reach the treasure inside the cave, but avoid 
crashing against the wall! 





keyboard 





HERE 
THHHHHIE 


4/ SOLITAIRE-PATIENCE — J.Rowbotham 

The classical card game for bachelors in splendid high 
resolution graphics. keyboard 

5/7 LEFT-RIGHT F.Van Amerongen 


The object of the game is to see if you know your left 
from your right. The computer will draw a colored box and, 
at the bottom of the screen, two colored bars. You must 
determine whether the left of the right hand bar matches 
the box's color. However, if the background is black or 

if instead of the box a cross is drawn, you must choose 
the other bar. keyboard or event 


6/ FLIEGENPATSCHE M. van Meegen 


Try to shoot the flies, which are controlled by the 
computer. The best time is the highscore. 
paddle * event 


2-player game : try to stop the moving object of your 
opponent. keyboard 
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1/ QUINTIMAZE F. van Amerongen 


Try to find your way out of this 5x5x5 cubic maze.Very fast 
representation of the maze-rooms! keyboard 


GAMES COLLECTION 11 Sans 
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77 
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2/ MANGROVE | M. Hooykaas 





3 castaways, living on an island, their only food being the 
mangrove-fruits. Look out for the crocodiles while jumping 
for fruit!! keyboard 
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3/ SOLITAIRE F.Druijff 

The object of this game is to loose all pegs except one. 
You loose a peg by moving another peg from one side of 
the peg to the other (empty) side. 

keyboard 





4/ FUNNY OTHELLO C.Poels 


The classical othello-game, but this time in a very funny 
graphical presentation. keyboard 


UTHELLO 1004 
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You control a car with the paddle and must drive one lap 


with it as your opponent tries to do his. 
Driving the car is difficult and amusing ! 
paddle 


5/ APPLE G. van Dongen 


Try to catch the apples falling from the tree... 


7/ REACTION TEST Xennt 





This program gives you an idea of your action delay. 


keyboard 


810 & Gil collectioned and edited by F.DRUIJFF 


computer en toebehoren 


mikroshop 
hageland zm | 








bennenbergweg 1 3221 nieuwrode tel 016/568770 (Belgium). 


DAI personal computer 

KEN-DOS system 1 x 200K 1 drive 40tr SS/DD 
2 x 200K 2 drives4Otr SS/DD 
1 x 400K, 2 x 400K 80tr SS/DD 
1 x 800K, 2 x 800K 80tr DS/DD 

KEN-DOS provides Eprom-bank for 96K extra memory. 

CP/M-kit:new slave-dos Eproms+ system disc+manual 

Math-chip (AMD9511) 

RGB-cable for colour monitor 

Paddles (3 pot's + event) 

RGB-card 

PAL-card 

ROMset V1.1 

High quality keyboard (kit) 

High quality keyboard (build in) 

MEMOCOM digital cassette recorder 

MDCR controller 

Flatcable for 1 DCR 

Flatcable for 2 DCR's 

Digital cassettes (6) 

CARRYING BAG for personal computer 

Hardware designer manual 

SPECIAL PROMOTION : KAGA colour monitor 12" 15Mhz 

BARCO colour monitor 16" 

EPSON MX-80 F/T type III 

EPSON MX-82 S type III 

EPSON RX-80 

EPSON FX-80 (160 cps) 

EPSON MX-100 type III (132 char) 

STAR GP510 (80 char) 

STAR GP515 (132 char) 

NEC8023 


All prices in Belgian francs, INCLUDING VAT. 
We also supply ACORN,BBC,ITT 2020,ITT 3030,CASIO. 


45900 
38800 
49500 
p.o.a. 
p.0.a. 


11900 
8000 
990 
900 
2380 
6600 
6750 
5200 
6500 
14520 
890 
1180 
1590 
1590 
1130 
1140 
21950 
21500 
34900 
36900 
29900 
43900 
52950 
26900 
37900 
43900 
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HET DEFECT RAKEN VAN DE +5 VOLT VOEDING 


+5V 
Onderdelen: 
ri= 390 OHM 
r2- 3K3 
r3= 2k7 
r4= 47 OHM 
ci= 47 nF 
tri= 2n6504 


di= ESDA 5 (M.C.A.TRONIX 
in Rijswijk) 
Qi- MC3423 (motorola) 






ATTENTIE ! 


Het printontwerp bij deze 
schakeling, afgedrukt in 
DAITA,is niet correct ! = 


Recentelijk is gebleken dat bij enige DAI-bezitters de +5 volt 

voeding is "opgeblazen",waardoor de mogelijkheid bestaat, 

dat er diverse TTL's worden vernield.Dit blijkt een nogal 

behoorlijke financiele consequentie te zijn,daar er ook div. PROMS (74LS288) 
worden vernield. 


Om hier nu wat aan te doen is bovenstaand schema ontworpen. 

Dit ontwerp is een zogeheten "CROWBAR" schakeling,die spanningen 
boven een ingesteld niveau detecteerd.Wanneer door het defect 

raken van een component in de voeding een te hoge spa-ning (22 volt) 
dreigt door te dringen naar het circuit,dan wordt deze ondervangen 
door het "overvoltage circuit" en ogenblikkellijk kortgesloten. 

Op deze manier is het dan uitgesloten dat hogere spanningen naar het 
circuit kunnen doordringen.Het gevolg voor de voeding is,dat buiten 
het component dat een eventuele overvoltage veroorzaakte,er nog 
enige andere componenten kunnen sneuvelen. 


Ik denk hierbij aan b.v. TIP 34,BD 140 of het schakel IC ‚maar dit 
weegt niet op tegen de eventuele schade die aangericht zou kunnen 
worden aan de rest van de computer.Het is ook mogelijk dat de ELCO 
wordt vernield. : 


Fen eventuele spannings-storing is ook merkbaar als het beeld van uw 
monitor of tv wegvalt. 

De schakeling wordt aangesloten met de + aan de bovenzijde van de 
zekeringhouder,gezien vanaf het keybord.de - kunt u aan de voedingskooi 
vastsolderen.Gebruik hiervoor een behoorlijke diameter draad. 

Uit bovenstaand onderdelenlijstje blijkt,dat er gebruik is gemaakt van 
niet alledaagse onderdelen,doch de samenhang garandeert een degelijke 
beveiliging. 


Mocht u problemen hebben met de aanschaf van de onderdelen of het monteren 
van de schakeling wendt u zich dan tot onderstaand persoon. 


T.Verberkt 
v.Buerenstraat 13 
5256 KL Oud-Heusden 
tel.04162-2667 
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Hamme,11 februari 1983. 


vanwege :Staf Van Hoecke 
Kon. Albertplein,13 
9160 HAMME. 


Aan DAINAMIC : Bestuur. 


Beste Dai-gebruikers, 


Na een zowat drie-jarig bestaan van de users-club,vind ik 
het passend om even een woord van dank tot de leden van het 
bestuur en de redactie te richten. 

Het zal voor iedere Dai-gebruiker ondertussen wel duidelijk 
geworden zijn dat de populariteit van de DAI personal 
computer sterk is gestegen.Dit dank zij de enorme inspanningen 
die een harde kern van gebruikers zich heeft getroost ,om 
deze nogal stiefmoederlijk behandelde CP de plaats te geven 
die hem toekomt,namelijk tussen de krachtigste systemen die 
voor een hobbyisten-prijs te koop zijn. 

Van huis uit heeft de DAI alle hardware-eigenschappen mee- 
gekregen om tot die grootsten te behoren.Maar...zoals bij 
elk systeem ,valt of staat het succes van een PC met de 
software die ter beschikking komt,alsmede of er al dan niet 
documentatie en supplementaire informatie gepubliceerd wordt 
om het systeem verder uit te diepen. 


Persoonlijk behoor ik tot een van de eersten die zich 

een DAI heeft aangeschaft,en kon ik toen "meegenieten" van 

de enorae'leegte en stilte,die na de introductie van deze 
geniale CP heerste. Nergens werd over het bestaan van de DAI 
gerept,laat staan dat in een of ander tijdschrift een 
programma zou te vinden zijn geweest . Over hardware-uitbrei- 
dingen kon men toen al even enthousiast stilte bewaren, 
kortom het was een periode waar we nu nog met de glialach 
naar terugblikken. 


Vanuit het toeristisch verblijfsoord van Keizer Karel is dan 
Opeens een frisse wind beginnen waaien,onder de vorm van een 
gebruikersgroep die sindsdien haar naam alle eer aandoet. 

Van een eerste schuchtere gestencileerde publicatie,tot 

de gesofistikeerde verzorgde tijdschriften die nu op de 

bus gaan,is een lange weg afgelegd,echter in een korte 
tydspanne.Met Dainamische kracht zijn er programma’s 
geschreven en verzameld,projecten gecoordineerd, vergaderingen 
en demonstraties ingericht. 

Dit onbaatzuchtig enthousiasme werkte aanstekelijk,tot ver 
over de grenzen van ons klein land.Ondermeer is aan het 

brein van enkele onzer noorderburen de belangrijke DCR-exten- 
sie ontsproten, en uit Duitsland en Frankrijk kwamen 
gesöfisticeerde programma-hulpen, games en utilitaire routines 
in machine-taal aanspoelen. 

Al dit moois kwam ter beschikking van de leden aan meer dan 
democratische prijzen, en maakte de reeds goedkope Dai tot 
het best gesitueerde apparaat wat PRIJS/KWALITEIT verhou- 
ding betreft. 


De kwaliteit van de puhlicaties,die reeds van bij het begin 
ernst en degelijkheid uitstraalden,schijnt onafgebroken 
het zelfde gehalte te bewaren.Ik zie met veel vertrouwen 
de verdere komende ontwikkelingen van onze Dai tegemoet. 


On al het voorgaande, en om het plezier dat ik tot hiertoe 
aan mijn Dai beleefd heb, wil ik U danken, en aansporen 
om in dezelfde richting verder te gaan. 


Beste groeten vanwege een enthousiast Dai-user, 
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DAlnamic INFO 


Chers membres. 


Voici de nouvelles traductions qui concernent cette fois le NO 14 
de la revue. On participe à la réalisation de cet encart : 

Pierre Holuigue Georges Cochin Christian Poels 

Ne vaus inquietez pas si votre contribution ne se trouve pas dans 
le present numéro, Il y en a bien d'autre à venir !. 

Encore merci à toute l'equipe . 


C. Dufour 





CONVERSION Analogique/Digitale (p20) 









Afin de pouvoir réaliser des mesures de basse fréquence, j’ai construit 
une interface avec 17 ADW-IC ZN 427 de Ferranti sur plaque Veroboard. 
Cette interface est abrité dans un boitier de 150x80x50 mm et est 
raccordé par un cable plat au bus DCE. 

Le programme de démonstration accompagnant permet environ 13900 impulsions 
par seconde. Peut etre y a-t-il un membre du club qui désirerait également 
construire un convertisseur A/D 8 Bits rapide et qui cherche une solution 
bon marché. C'est pour cette raison que je veux mettre mes documents 

à leur disposition. La combinaison possible des bruits "ADW" et de 
l'analyse de la parole permet de faciliter la programmation de la fonction 
TALK. 

Durant la réalisation de l'interface et les essais, j'ai réalisé la liaison 
logique avec le DAI comme indiqué fig.3. Ainsi les ports B et C sont 
programmés en sortie et le port A en entrée. A une des sorties on 

retrouve à partir du BASIC une mesure lente qui produit l'impulsion du 
quartz conduisant le convertisseur. (Voir schémas p21..) 

Bon amusement pour la construction,Avec mes salutations amicales. 






















INSTRUCTION "IF...THEN...ELSE..." 









Dans les langages de programmation évolués, l'instruction 'IF-THEN-ELSE-' 
est possible. Et sur le DAI ?? Egalement, avec cependant quelques 
restrictions, en utilisant judicieusement la sequence "11-6001. 
Essayez par exemple le programme suivant : 

18 IF 4-1 GOTO 3e 

20 PRINT "20", 

36 PRINT "30", 

40 PRINT "4e" 
RUN affiche : '30 407 si A=] et ’40° si ACL. 
La ligne 20 n'est donc jamais executée. Essayez maintenant : 

18 IF A=1 GOTO 3@ : PRINT "TEST" 

20 PRINT "260", 

3@ PRINT "50", 

40 PRINT "40" 
RUN affiche : 730 40’ si A=1 et "TEST 20 36 40° si AO1 
Vous voyez ainsi comment simuler l'instruction 'IF-THEN-ELSE' avec 
"IF-50T0-:...” . Mais attention la première partie DOIT etre de la 
forme ”IF-GOTO- ou IF-THEN- ١ 
L'explication de cet astuce tient dans la maniére dont est executé 
l'instruction. La routine en MEM (ROM) se trouve en #DF15. 
Utilisez prudemment cette instruction et seulement sous la forse 
sus-citée afin de n'avoir aucun ennuis dans vos programmes...! 
















DUPLICATION (P33) 


Pour dupliquer une ligne vous, pourrez utiliser ce truc qui nous 
vient d’Italie ! 
* EDIT NG ligne a dupli quer 
Changer son numéro 
BREAK (2 fois) 
POKE 309,9 
LIST la ligne est copiée! 


ET 


+ k k ox 





La fonction BASIC " TAB " (P28) 


Comme vous le savez surement, la fonction TAB peut etre utilisée pour 
disposer des données en colonnes. Le curseur va directement a la 
colonne fixée par TAB en placant des espaces. Vous avez du remar quer 
un mauvais fonctionnement de cette fonction en voici 1’explication 
Pour le BASIC Vi.@ 

Quand le DAI execute la fonction TAB, il controle 1’état du drapeau de 
sortie DOUTC (#131). Lorsque DOUTC=@ (Ecran+RS 232) la fonction TAB 
fonctionne normalement. Pour toutes autres valeurs de DOUTC seulemen UN 
espace est genöre...! 

Pour le BASIC V1.1 

Veinards ',votre fonction TAB fonctionne correctement pour 

DOUTC-e ET DOUTC-1 (Ecran seul). - 


TECHNIQUES DE PROGRAMMATION (p16/19) 





Tous les possesseurs de DAI ont programmé au moins déja une fois dans leur vie. 
Cependant, la mise au point et le développement des programmes envoyés laissent 
encore souvent à desirer. Il n'existe pas de standard de programmation, mais 
quelques conseils judicieux peuvent grandement aider. 

Tout d'abord il faut se demander ce que l'on veut faire avec le programme. Ainsi 
quelques questions peuvent venir à l'esprit : 

- A qui est déstiné le programme ? 

— Des REMarques seront elles necessaires ? 

— Comment seront les variables: entieres ou en virgule flottante ? 

- Le programme doit il etre rapide ? 

— Le programme est il urgent ? 

A toutes ces questions il y a bien sur une réponse rapide à donner : 

- Si le programme doit etre utilisé par d'autres personnes, Très 
souvent des explications seront nécessaires. 

- Oui, si le programme est complexe ou s'il utilise des ’astuces’ 
de programmation. 

— Suivant le programme, mais certaines variables peuvent toujours 
etre entieres (Boucle FOR-NEXT;COLORT;...). 

- Si oui alors travaillez avec des entiers, testez differentes 
possibilités de programmation ou ecrivez des portions de programme 
en langage machine. 

- Dans ce cas, l'apparence du programme n'est pas primordiale, on 
remarque alors l'importance d'avoir une bibliotheque de programmes. 

Le programme donné en page 18 (NO 14) donne l'exemple d'un programme de base 
'idéal', car il utilise des modules de programmes. Ce systeme permet de pouvoir 
réutiliser ces modules dans d'autres programmes. Ce qui augmente nettement la 
lisibilité. On peut facilement remplacer une partie par son équivalent en langage 
machine pour en augmenter la vitesse. Dans le cas ou cette methode est utilisée, 
le programme sera beaucoup plus long et pourrait ne plus tenir dans la 

mémoire (Cas extreme !) 


Bien qu'initialement recommandé, l'initialisation du programme tel que : 
MODE © : PRINT CHR$ (12) 
Présente quelques désavantages : Un programme éxtremement grand qui tourne en 
mode 1 ou 2 peut donner un "OUT OF MEMORY" apres un MODE e. 
P.S. Vous trouverez ci-apres une nouvelle methode pour le tracé d'un cercle. 


NOUVEAUTES 
annee seems PRIX AUDIO DER 
ACROBATES PAR J.RIJSSELBERG 9 Fru 110 Fru 


UN NOUVEAU JEU FAGCINANT EN LANGAGE MACHINE (7K) 
OPTION 172 JOUEURS, SCORE ET BONUS, MUSIQUES. a» 


8.P.L. PAR SPHINX 160 Fru 188 Fes 
UN MACRO-ASSEMBLEUR TRES PERFORMANTCONCU POUR LE 
DAI. ASSEMBLAGE CONDITIONEL, MACRO, MOVE, COPY... 
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LT Vel Tall‏ بل ET LT‏ بل cabin Tl Vale TT Te LT Toe TA TST LT‏ مل هسل TT‏ مله؟ مل ede TTL TAS Tele Vele Vele‏ مل مل ها 


—-TRANSLATIONS—-TRANSLATIONS—-TRANSLATIONS— 
gue CE Te Tee TE PE FE TE PE CE CE TOME fe re re TOUTE Pe TE PE CPE CPE PE CPE CPE PE TE TE PE CE TOUTE 


TIPS--TIPFS--TIPS--TIPS 
(from DAInamic 10, page 121) 


1. Start most programs with IMP INT, 
2. Put the commentary or explanation for the user where it will appear at the beginning of a 
RUN, not at the start of a listing, eig. 10 CLEAR 3000! GOSUB 10000 etc with the foreword 
starting at line 10000, The program will thereby run faster and can be examined more readily. 
3. Avoid the American habit of starting with the question “What is your name?" and never 
making use of the information received. 
4, Do not ask "Do you wish to read the foreword?" There are two better ways. 

(1) Display it, if it is brief, or 

(2) Make an auxiliary program for it, if large. 

The latter has these advantages! 

(1) If the operator does not wish to see the instructions etc, they need not be called or read 
ne 

(2) The program may run faster, 

(3) Very large programs make better use of the memory by being split into sections. 

(4) The main program can be read in while the instructions are on display, 
5, Have a leader or header on more important programs; by this is meant a frame containing the 
title of the program and the name of its author, preferably in a simple, straightforward style, 
& Do not have announcements and explanations on the screen for what you consider a suitable 
period, but give the user Freedom to choose how long he needs, He can press the space bar to 
continue the program 
7, When asking a question about the degree of difficulty or level of skill, give some idea of what 
is difficult and what is easy. 


DAI—-RS232 
(from DAInamic 10, page 148) 


As a DAI user-beginner I had the following experiences when I connected a printer ٠ 


DAI RS-232 (rev 5) 

On connecting an EPSON MX-80 to my 2 months old DAI, via the RS-232 parallel (surely he 
means serial) interface, one thing and another did not seem to work as it should. The listing on 
the DAI went happily on without waiting for the printer. As the printer and interface were 
tested before buying the suspect DAI was speedily placed on the operating table for an internal 
examination, The accompanying figures show the print layout and schematic of the RS-232 DTR 
input (main board, rev 5). 

INTERRUPT ! Wasn't the 56K resistor on earlier revisions connected to the frame instead +5v? 
It appears from measurements that with a NOT READY SIGNAL (0.13v) the voltage on input pin 
10 of IC 74L8373 (latch) is 0.95v, and is thus somewhat too high. According to the IC 
specification VIL) must, for the low level input voltage, be less than 0.8v, The voltage drop 
across the 3K3 resistor is caused by the current through the 56K resistor (0,072mA) and the low 
level input current of the IC (0.174mA), which falls easily within the IC spec - IL) less than 
-0,4mA. Lowering the 3K3 resistance to ZK (with a parallel resistor of SK6) restored the 
patient to excellent health. 


EPSON MX-82 WITH HIDDEN TALENTS, 
Getting 80 characters instead of the 96 quoted in the manual drove me to a second operation, An 
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SPL ET LT ET LT TT TETE ET ET ET TT ET LT TT LT LT TT TTL ET ندنلد لل‎ 


-TRANSLATIONS-TRANSLATIONS—-TRANSLATIONS-— 
PATATE LT ET ET ET ET ET ET ET oe Gh 


internal inspection showed DIP switch 1 - 5 in the OFF position. Concerning the function of this 
switch the manual is to all intents silent, reporting only "Never set this pin to the OFF 
position, always leave it in the ON position", And indeed in the ON position I received the 
whole 96 character width, in the OFF position only 80 (plus 16 for margin at the end). 


FINALLY, A HAPPY END ! 
By comparing the control codes with those of the MX 100, three of the latter were not to be 
found in the MX 82 manual, They were therefore tried out and the results were positive! 
ESCG double print (advance paper 1/216" and repeat line) 
ESCH cancels ESC G : 
ESCM elite print (width of letters between normal and condensed) 
So, from now on, these codes are also in my MX 82 manual, 


Herman Moeys 

MACHINE LANGUAGE IN A REM STATEMENT, 
(from DAInamic 10, page 149) 

(my first very own machine language program) 

In MC4 (Microcomputer Journal Nov/Dec 1981) the difficulties were discussed of putting a short 
section of machine language in a BASIC REM line. Advantage? all could be loaded in one go in the 
normal way as with a BASIC program. Disadvantages! They were not mentioned, but + Snags! 
These will come up for discussion in the following, 

1, How do you know where the required line with the REM is in the memory? For example, 10 
REM##### In address #29F, #2A0 we find #EC, #03 which means that the start of the BASIC 
text is to be found at address #3EC, We find theret- 


03E0 FF FF FF FF FF FF FF FF FF FF 7F FF 09 00 OA A? 
03F0 05 2A ZA 2A 2A 2A 00 00 FF FF FF FF FF FF FF FF 


7F FF end of HEAP (see DAInamic 7, page 188) 


09 the coming Basic line contains ? bytes from 00 to 2A 
00 0A line number 10 

A9 code for MEM 

05 5 items come after the REM 


2A «2A five asterisks 


2. In place of five times #2A we can choose 5 other bytes which form a machine language 
program. This program can then be called up with CALLM #3F1, provided that two conditions are 
satisfiedi- 

- the program begins with 10 REM 

- the text begins at address #3EC} this is certain to be so after power-up or a hard reset. No 
CLEAR instruction may be given prior to the first Basic line. In the listing the first line 
contains a series of arbitary characters. Sometimes there is nothing more in the line. If for 
example in the little bit of machine lanquage is the byte #0C, then when listed the screen would 
be cleared. 


3. An Example. The following program puts all characters on the screen, from CHRS(#FF),up to 
CHRS(#0C),clear screen, 
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Jee LE DE CE SE CAE DE CAE CPE SR GG CE PE ro do de TE ee CR CPE RTE oe ee CPE E CPE LE 


—TRANSLATIONS-TRANSLATIONS-TRANSLATIONS— 
LE EE CIE EEE LT TOUTE TE PE GE SE CPE CPE PE PE PE TETE TE TE TE CPE CPE TE TE TE TOUTE TE TETE, 


1 03۳1 CS FUSH & contents of 

2 O3F2 D5 FUSH D registers 

3 03۳3 ES FUSH H saved on 

4 Q3F4 F5 PUSH FSW stack 

B O3FS oot MUI &,30C CHR$(12) in B 

& 03F7 3EFF MVI A,ıFF #FF in A 

7 O3F9 CDé0DD CALL :DD60 CHR$in A) to screen 
8 03FC 3D DCR A (A)=(A)-i1 

9 O3FD EB CMP EB if (A)-(B)40 then 
A O3FE C2F903 JNZ jump to #3F9 

E 0401 Fi FOP FSW fetch 

C 0402 Ei FOP H back 

D 6403 3 FOP D registers 

E 0404 C1 FOP E from stack 

F 0405 C9 RET 


The program contains 21 bytes, so the basic program begins withi 


10 REM "He 21 asterrisks X 
20 CALLM 1 
30 END 


By using the substitute instruction in Utility at addresses #3F1 to #405 all #2A bytes can be 
replaced by the 21 bytes of the program. The whole can now be saved and loaded as Basic. REM 
statement can contain up to 122 items, sa the machine language can be a fair length. 


4, The second proviso in section 2 (start text at #3EC) can cause problems, If the heap space is 
made larger than #100 bytes with a CLEAR then the start of the text buffer will be moved to a 
higher address, This address can again be found in #29F and #2A0, where the contents are now 
the new low and high address bytes for the start of the text buffer. Th example will now be 
changed, as follows, for eventual enlargement of the heap! 


10 REM eee? 

20 ADRES= PEEK (#2A0)#256+PEEK (#29F)+5 
30 CALLM ADRES 

40 END 


We first look at #29F and #2A0 where the text buffer begins. By counting up 5 from the start 
address (see section 1) we find the start address of the machine language program, 


5. Alas, as we try one thing or another with our sample program things go wrong so that only 
that well known reset button brings a solution. In the machine language program there is a jump 
back fram line A to line 7. In the jump instruction address #3F9 is mentioned, but that is no 
longer valid as the text buffer and therefore the machine language program were moved to 
higher addresses. A simple solution for this would be an instruction to jump back so many 
addresses, but unfortunately such a relative jump instruction is not available on the 8080A. And 
so as a beginner you come to a full stop with your machine language program. After a couple of 
telephone calls I got the following tips from Freddy de Roat? 

- calculate the address to which you want to jump and put it in registers HL 

- then put the contents of HL on the stack (PUSH H) 

¬ now comes a conditional jump, e.g. a test for zero. You can then jump with a Return Non Zero 
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re eo ee oe EE OUTRE EE TOO C TO PE TE PE GG GG oo JO TE TO TE TEE, 


—TRANSLATIONS-TRANSLATIONS-TRANSLATIONS— 
QUE TE ETC TE EEE PE PR CPE CIO جحد‎ PR TE RTE TE PE TOUTE PE CPE eee Pe TEE | 


- or carry on with POP H by means of which the stack is returned again to its former size, 

The fact is that calculating the jump address from the addresses resident in #29F and #2A0 
(pointers to the text buffer), is no longer possible because the pointers are changed by a CLEAR 
and therefore the jump address will also be changed, 


6. Example 
i 038۸1 C5 FUSH E 
2 03F2 DS FUSH D 
3 03F3 ES FUSH H 
4 Q3F4 FS FUSH FSW 
5 03F5 249F02 LHLD 7۳ calculate 
6 03688 111400 LXI D,:0014 jump 
7 O3FB 19 DAD D address 
8 03۳6 060€ MUI EB,:0C 
9 03۳٣ 3EFF MUI A,iFF 
A 0400 CD40DD CALL 90 
E 60403 3D DCR A 
C 0404 EB CMF E 
D 0405 ES FUSH H 
E 0406 CO RNZ relative jump 
F 0407 E1 FOF H 
10 0408 F1EiDiCi POP ALL 
11 040C C9 RET 
Explanation: 


Line 5 ~ Start address of text buffer is read at #029F, #2A0 and put into registers HL 

Line & - The destination address for the jump lies #400-#3EC = #14 addresses further on from 
the start address of the text buffer. Therefore #0014 goes into registers D,E. 

Line 7 - after counting up , the result (i.e. the jump address) is in registers HL 

Line D - The jump address is taken from HL and put on the stack 

Line E - If (A)-(B)#0 then return to the above address which is on the stack. 


Now, should the HEAP be enlarged by an earlier program, or a CLEAR be given before loading, 
your program will still run O.K, You are so pleased that it works that you write it all down 
before you forget! It could be that someone else will benefit, 


Greetings Thijs Berckx 


contactaddress U.K. : Dave Atherton 
16 Douglas Street 


ATHERTON MANCHESTER M29 9FB 
U.K. tel : 44-942 876210 
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* 
Stand 81.Márz 1983. Alle genannten Preise sind einschließlich 
Mehrwertsteuer.Der Versand erfolgt ausschließlich per Nachnahme 
zuzüglich Versandkosten.Es gelten die allgemeinen Geschäftsbe- 
dingen nach BGB. Bei Versand ins Ausland wird die Mehrwertsteuer 
abgezogen.Lieferzeiten bis 7 Wochen vorbehalten. 


Real World Karten Adapter 
ait je 4 Buchsen-u. 4Stift- 
leisten (3ipol,4 Steckpl.), 
34 pol.Stiftstecker zum An- 
schluß an den DCE-Bus,Karte 
gelötet und getestet 
DSP-RWCI 75.88 DM 


In Vorbereitung: 
RWC-A/D-Wandler 
RWC-Relaiskarte 
RWC-Druckerinterface 

ait 3K Buffer 


Eproaprograaaier 
prograaniert 2788,2714, 2732 
2516 und 2532, arbeitet ohne 
zusätzliche Spannung,bei KEN- 
DOS durch Benutzung eines 
Eproaplatzes, noraal Eproa- 
halter erforderlich, komfort. 
Software, (Prüfen, Check, Ver- 
gleichen! , s. Bedienungsanl. 
DSP-EPP 178.08 DM 


RWC-Netzteilkarte, *5V/3h, 
*12V/28,-5V/18, 58 Hz und 
188 Hz Taktausgang, Karte 
gelütet und getestet, 
erf.Trafo 81/58, BV/1A, 
16V/2A 

058-۷11 85.86 DM 


RWC-Adapteranschl uBkabel 

zum Anschluß von RWCi an den 

DAI, wird nicht benötigt wenn 

am DCR-Kabel eine Buchse frei 
DSP- RWCKAB 38.88 DM 


Eproahalter extra 

OSP-EPH 35.88 DM 
In Vorbereitung: 
Eproshalter für DCR und Eproa- 
prograsaier, eraógl.Betrieb vos 
DSP-EPP m. DCR CAS u. DAI-Floppy 


Eprom 2716 DSP-2716 4.98 DM 
Eproa 2732 DSP-2732 14.88 DM 
Eprom 27324 DSP-2732A 15.28 DM 


E.NEVE 25 Hoog straat DWORP 1512.T.02/380 35 81. 





L1 


N'importe quel No de TEL.peut entrer.La MEMOIRE INTERNE 


est de 16 CHIFFRES. 





Ralph Hahn 


Computer und Zubehór 


02676-1577 
5441 ULMEN/EIFEL 


RWC-Real -Ti ae-Clack 
Quarzst, Sec, Min, Std, Tage 
Wachentage, Monate, Jahr 
autos. Schalt jahrkorrektur, 
Start/Stap-Funktion p. Soft- 
ware, 12/24 Std. selektierbar 
Notstroaversorgung, 1 Sekunden- 
Ausgang, Interrupt p. Softw. 
selektierb., alle Sek/Min/Sdt/ 
1/1824 Sek.,2 Treiber f.Schalt- 
ausgang,Kartenadresse wählbar, 
uafangreiche Dokumentation 
DSP-RTC 183.88 DM 


D 8255 AC-3 DSP-8255 8.78 DM 
AND 9311 DSP-AMD 338.08 DM 


RGB-Nonitor, 15 MHz Auflüsung, 
weißes Geh. DSP-CNB2 1299.98 DM 


Diskette, 5.25", 1.Hahl, solange 
Vorrat reicht 15۶-0151 4.89 DM 


Tastatur DSP-KBS 197.88 DM 


CIRCUIT TELEPHONIGQUE 


CE CIRCUIT Permet de former par 

COMPUTER des numeros de Telephone 
grace a un integre specialise pour 
ce travail.Le DAI ou un AUTRE peut 
Commander le systemejil doit pour 
cela avoir u interf.8 SORTIES . 

Le programm met des NIVEAUX B C D 


aux entrees du circuit. 


HHHH HF HF HF HF HF بل‎ HF HF OF HF BEERS H HH H H HF FHF HF HF HF HF 20202020202 22027502 HH 


* EPROM PROGRAMMER #٢ 


COPY OF 2716 


SYSTEM for CHECK READ PROGRAMM an 
2732 MEMORIES. 


CARACTERISTICS. 
220 AC. POWERED 5 WATTS. 


MEMORIZS CAN BE SET IN STAND ٧ 
INDIVIDUALLY WITH MANUAL SWITCHES 


AND WITH THE FROGRAMM. 
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مهه و OH‏ و ډه و ه ه و هپ و په و ې و ESOS OO‏ و واو و و و و و و و و و ه SHES‏ و و چو و و ې چ ه و ېو OSES‏ ې ې وې چو و ې و TEE‏ پو چ ې ې ې و ې وي يې 
dai heel printe‏ 


HR -1 


*999990999999999999900999999999$9 





47500,- لا‎ EXCL. BTW 


INCLUSIEF 2 JAAR GARANTIE EN SERVICECONTRACT 


— RS-232 of Centronics parallel interface 
— Instelbare pitch (10/12 of 15 Kar/inch) 
— Print Bidirectioneel met Logic seeking 
— Snelheid 40 karakters/seconde nominaal 
— Standaard geleverd met Friction feed 
— Als optie een Tractorfeed of Sheetfeeder 
— Wagenbreedte 420 mm. (195 pos.maximaal) 
— Werkt met standaard IBM  lintcassette's 
— Ruime keus in letterwielen (ca. 20 stuks) 





NEDERLAND BELGIE 
HERENGRACHT 317 FRANKRIJKLEI 70 
1016 AV AMSTERDAM 2000 ANTWERPEN 
TEL : (020) 22 41 33 TEL : (03) 2334088 


هپو و ووو و ه او وه و وه و و هو ټ و و پټ و ddd‏ و وټ هو و هو و و وه وټ و ونو واو و هو و۷ شر وه و وه وه وه وو و پټ ې وه کا وی کی و و و O O O o o o o o o ok o a a‏ 


موو مهم موو وم مو وو ووو و وو وو 4ه مه وه مه ووه ههوو هه ههه همه وه وهو وو ههه ووو و په هو نو وه نو وه وچ ني 
* 


$9000000000900000090000000000000000000000000000000000000000000000000000000000007 
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8080 ASSEMBLY LANGUAGE PROGRAMMING FOR BEGINNERS — OP CODES 
ONG PUR BEGINNERS — OP CODES 


HEX MNENONIC FLAGS BASIC EQUIVALENT DESCRIPTION 

00 8۶ 0 = Does nothing 

01 LXI B,dddd 0 LET BC=dddd Load BC with 14-bit nuaber dddd 

02 STAY B 0 POKE BC,A Put contents of A into 14-bit memory address in BC 

03 18 0 LET 41 16-bit increment of BC 

04 INR B Y LET B=B+1 8-bit increment of B 

05 DER B 1 LET 888-1 8-bit decreaent of B 

06 NVI 0 0 LET 0 Load B with 8-۵11 nueber dd 

07 RLC t LET A=(A#2) MOD 256 Move all bits of A one to the left, Carry=Bit 75Bit O=Bit 7 
08 - 0 x = 

09 DAD B 0 LET HL={HL+BE) MOD 45534 — 16 hit-addition of HL and BCiresult in HL 

OA LDAX B ü LET A=PEEK (BC) Put contents of meaory address in BC into A 

0B DCX B ü LET BC-BC-1 14-bit decrement of BC 

OC INC 1 LET C=C+1 = 8-bit increment of C 

0D DERC Y LET. C=C-1 B-hit decrement of E 

OE NVI C,dd 0 LET C=dd Load C with 8-bit number dd 

OF 56 t R-INT(A/2)*1283Bit 0 of A Move all bits of A one to the right. Carry=Bit O:Bit 7-Bit 0 
10 - 0 * = 

ii LXI D,dddd 0 LET DE=dddd Load DE with 14-bit nuaber dddd 

12 LDAX D 0 POKE 8 Put contents of A into 16-bit aemory address in DE 

13 11 0 LET DE=DE+1 14-bit increment of DE 

14 INR D 1 LET D=D+i 8-bit increment of D 

13 DER D Y LET 0-0-1 8-bit decrement of D 

14 MVE Dydd 0 LET D=dd | Load D with 8-bit nuaber dd 

17 RAL t LET A={A#2) NOD 256 As RLC (07) but Bit O=Carry 

iB - 0 = | $ | 

19 DADD 0 LET HL={HL+DE) MOD 45536 16-bit addition of HL and BC:result in HL 

IA LDAX D Ü LET A=PEEK (DE) Put contents of aemory address in DE into A 

1B 11 0 LET 1-0-1 16-bit decrement of DE 

IC INRE 1 LET 11 : 8-bit increment af E 

iD DERE 1 LET EsE-1 8-bit decreaent of E 

IE MVI E,dd ü LET E=dd Load E with 8-bit number 

IF 8 0 17 ۷ As RRC (OF) but Bit 7=Carry 

20 - 0 - - 

21 LXI H,dddd 0 LET HL=dddd Load HL with 14-bit number dddd 

22 SHLD dddd 0 POKE dddd,L:POKE dddd+i,H Put 16-bit number in HL into memory location dddd and dddd+1 
23 11 0 LET HL=HL+1 16-bit increment of HL 

24 INR H H LET 1 8-bit increment of H 

25 DER H o LET H=H-1 8-bit decrement of H 

26 MVI H,dd ü LET H=dd Load H with 8-bit nuaber dd 

27 8 A = Switch the 8080 to BCD mode for next add or subtract 

28 - 0 = = 

29 088 H t LET HL=HL#2 MOD 45535 16 bit addition of HL and Hi:result in HL (therefore double HL) 
2A  LHLD dddd 0 H-PEEK dddd:L-PEEK dddd+i Put 14-bit nuaber contained in dddd and dddd*i into HL 

2B DEX H 0 LET HLzHL-1 16-01٨1 decrement of HL 

2t IML Y LET L=L+i 8-011 increment of L 

2D ODER L 1 LET LzL-1 8-bit decrement of L 

JE NI Lydd 0 LET 0 Load L with 8-bit number dd 

2F CNA 0 LET A=255-A Coapleaent A. Turn 0 bits to 1, 1 bits to 0 

30 - ü - = 

31 LXI SP,dddd 0 LET SP=dddd Load the stack pointer with the 14-bit number dddd 

32 STA dddd 0 POKE dddd,A Load meaory address dddd with the contents of A 

33 INX SP 0 LET SP=5P+1 16-bit increment of the stack pointer 

34 INN 1 POKE HL, PEEK (HL) +1 8-bit increment of the mesory location in HL (HL itself unaffected) 
35 DRM Y POKE HL, PEEK (HL) -1 8-bit decrement of the memory location in HL (HL itself unaffected) 
36 NVI M,dd 0 POKE HL, dd Load memory location HL with 8-bit nuaber dd 

3 STE I Carry=1 Set carry flag 


dd=any 8 bit number (0-FF). dddd=any 14-bit nuaber (0-FFFF), ss=nuaber of bytes to juap between -128 and 127 
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8080 


ASSEMBLY LANGUAGE PROGRAMMING FOR BEGINNERS — OP CODES 


"2" SD Er 


X MNEMONIC 
DAD SP 


m 


0 
0 
1 
1 
0 
t 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
NOV D,L ü 
0 
0 
0 
D 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


FLAGS BASIC EQUIVALENT 


LET HL=HL+SP 
LET A=PEEK (dddd) 
LET SP=SP-1 
LET 1 

LET ۵8-1 

LET Add 

LET Carry=1-Carry 
LET B=B 

LET Bet 

LET B=D 

LET BE 

LET B=H 

LET B-L 

LET B=PEEK (HL) 
LET B=A 

LET 8 

LET C=C 

LET C=D 

LET C=E 

LET C=H 

LET C=L 

LET C=PEEK (HL) 
LET C=A 

LET D=B 

LET D=C 

LET D=D 

LET D=E 

LET D=H 

LET D=L 

LET D=PEEK (HL) 
LET D=A 

LET E-B 

LET E=C 

LET E=D 

LET Eet 

LET E=H 

LET E=L 

LET E=PEEK (HL) 
LET E=A 

LET H=B 

LET H=C 

LET H=D 

LET HE 

LET H=H 

LET HAL 

LET H=PEEK (HL) 
LET H=A 

LET L=B 

LET L=C 

LET L=D 

LET L=E 

LET L=H 

LET L=L 


. LET L=PEEK (HL) 


LET L=A 


DESCRIPTION 


16-bit addition of HL and stack pointers result in HL 
Load A with the contents of memory address dddd 
16-bit decrement of the stack pointer 

8-hit increment of A 

8-bit decrement of A 

Load À with the 8-hit nuaber dd 2 
Flip the carry flag over to its other state 


Copy the contents 
Copy the contents 
Copy the contents 
Copy the contents 
Copy the contents 
Copy the contents 
Copy the contents 
Copy the contents 
Copy the contents 
Copy the contents 
Copy the contents 
Copy the contents 
Copy the contents 
Copy the contents 
Copy the contents 
Copy the contents 
Copy the contents 
Copy the contents 
Copy the contents 
Copy the contents 
Copy the contents 
Copy the contents 
Copy the contents 
Copy the contents 
Copy the contents 
Copy the contents 
Copy the contents 
Copy the contents 
Copy the contents 
Copy the contents 
Copy the contents 
Copy the contents 
Copy the contents 
Copy the contents 
Copy the contents 
Copy the contents 
Copy the contents 
Copy the contents 


of the B register 
of the C register 
of the D register 
of the E register 
of the H register 
af the L register 


into the B register 
into the B register 
into the B register 
into the B register 
inta the B register 
into the B register 


of the memory addressed hy HL into the B register 


of the À register 
of the B register 
of the C register 
of the D register 
of the E register 
of the H register 
of the L register 


into the B register 
into the C register 
into the C register 
into the C register 
into the C register 
into the C register 
into the C register 


of the aesory addressed by HL into the C register 


of the A register 
of the B register 
of the € register 
of the D register 
of the E register 
of the H register 
of the L register 


into the C register 
into the D register 
into the D register 
into the D register 
into the D register 
into the D register 
inta the D register 


of the aeaory addressed hy HL into the D register 


of the À register 
of the B register 
af the C register 
of the D register 
of the E register 
of the H register 
of the L register 


into the D register 
into the E register 
inta the E register 
into the E register 
into the E register 
into the E register 
into the E register 


of the memory addressed by HL into the E register 


af the A register 
of the B register 
of the C register 
of the D register 
of the E register 
of the H register 
of the L register 


into the E register 
into the H register 
into the H register 
inta the H register 
into the H register 
into the H register 
into the H register 


Copy the contents of the memory addressed by HL into the H register 


Copy the contents 
Copy the contents 
Copy the contents 
Copy the contents 
Copy the contents 


of the A register 
af the B register 
of the C register 
of the D register 
of the E register 


into the H register 
into the L register 
into the L register 
into the L register 
into the L register 


Copy the contents of the H register into the L register 


Copy the contents 


of the L register 


into the L register 


Copy the contents of the aesory addressed by HL into the L register 
Copy the contents of the A register into the L register 


dd=any 8 bit nuaber (0-FF). dddd=any 16-bit nuaber (0-FFFF) 


DAlnaaic 83-15 — 97 





* 


8080 ASSEMBLY LANGUAGE PROGRAMMING FOR BEGINNERS ~ OP CODES 





HEX MNEMONIC FLAGS BASIC EQUIVALENT DESCRIPTION 


70 MOV 8 0 POKE 8 Copy contents of B register into the 0880۳۷ location addressed by HL 
71 NOV MC 0 POKE HL,C Copy contents of C register into the memory location addressed by HL 
72 NOV 0 0 POKE HL,D Copy contents of D register into the aesory location addressed by HL 
73 MW M,E 0 POKE HL,E Copy contents of E register into the meaory location addressed by HL 
74 NOV M,H 0 POKE HL,H Copy contents of H register into the aeaory location addressed by HL 
15 NOV M,L ü POKE HL,L Copy contents of L register into the memory location addressed by HL 
78 HLT ü STOP Stop the processor. Can only be restarted by interrupts ۰ 

77 MOV ۵ 0 POKE ۵ Copy the contents of A register into memory location addressed by HL 
78 NOV A,B 0 LET A=B Copy the contents of the B register into the A register 

19 MOV A,C 0 LET A=C Copy the contents of the C register into the A register 

7A ٧8۷ 8 0 LET 8 Copy the contents of the D register into the A register 

7B MOV A,E 0 LET A-E Copy the contents of the E register into the A register 

7E NOV A,H 0 LET A=H Copy the contents of the H register into the A register 

7D HOV ASL 0 LET ۵81 Copy the contents of the L register into the A register 

7E NOV 6.8 Ü LET A=PEEK (HL) Copy contents of memory location addressed by HL into the A register 
7F MOV A,A 0 LET A&A Copy the contents of the A register into the A register 

BO ADD B A LET 8 8-bit addition of À and B:result in A 

81 ADD C A LET 656 8-bit addition of À and C:result in A 

82 ADD A LET A=A+D 8-hit addition of A and Diresult in A 

83 ADDE A LET 565 8-bit addition of A and E:result in A 

B4 ADD H A LET A=A+tH 8-hit addition of A and H:result in A 

85 ADDL A LET A=AtL 8-bit addition of A and L:result in A 

86 ADD R A LET A=AtPEEK (HL) 8-bit addition of À and contents of memory addressed by HL:result in A 
87 ADD A A LET 40 8-bit addition of A to itself i.e. A=A#2:result in A 

BE ADC B A LET A=âtBtCarry ‘As 80 but plus 1 if carry set 

89 ADC C A LET A=AtCHarry As 81 but plus 1 if carry set 

BA ADC D A LET A=AtDtCarry ' As 82 but plus 1 if carry set 

BB ADC E A LET A=A+E+Carry As 83 but plus 1 if carry set 

BE ADC H A LET ٧۷ As 84 but plus 1 if carry set 

8) ADC L A LET A=AtL+Carry As 85 but plus 1 if carry set 

BE ADCN A LET A=A+PEEK (HL) +Carry As 86 but plus 1 if carry set 

gr ADC A A LET A=AtAtCarry As 87 but plus 1 if carry set 

90 8738 A LET A=A-B 8-bit subtraction af B froa A:result in À 

91 SUB C A LET A=A-C As 90 but with C 

92 SUB b A LET A=A-D As 90 but with D 

93 SUBE A LET A=A-E As 90 but with E 

94 SUBH A LET A=A-H As 90 but with H 

95 SUB L A LET A=A-L As 90 but with L 

96 SUB M A LET A=A-PEEKCHL) 8-bit subtraction of contents of memory addressed by HL from Asres.in A 
97 SUB A A LET A=A-A Subtract A from itself i.e. A=0 

98 SHB B A LET A=A-B-Carry As 90 but less 1 if carry set 

99 SBBC A LET A=A-C-Larry As 91 but less 1 if carry set 

JA  SBB D A LET A=A-D-Carry As 92 but less 1 if carry set 

9B SBB E A LET A=A-E-Carry As 93 but less 1 if carry set 

NL SBB H A LET A=A-H-Carry As 94 but less 1 if carry set 

9D SBB L 8 LET A=A-L-Carry As 95 but less 1 if carry set 

JE SBB M A LET A=A-PEEK(HL)-Carry As 96 but less 1 if carry set 

9F SBBA A LET A=A-A-Carry As 97 hut less 1 lie -1) if carry set 

AO ANA B A LET A=A AND B Logical AND A with B:result in A 

Al ANAT A LET A=A AND C As AO but with C 

A2 ANAD 8 LET A=A AND 1 As AO but with D 

43 ANA E A LET A=A AND E As ۵0 but with E 

A4 ANA H A LET A=A AND H As AQ but with H 

AS ANAL A LET A=A AND L As AO but with L 

Ab ANA M A LET A=A AND PEEK(HL) Logical AND A with the contents of aeaory addressed by HL 

A7 ANA A A LET A=A AND A Logical AND A with itself:A will remain unchanged but flags will alter 
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1.EL aa Aa ShA aAA aaa a aa E aaa aaa aaaea‏ و 


HEX MNEMONIC 


JRA B 
IRA C 
IRA D 
IRA E 
IRA H 
IRA L 
IRA M 
JRA A 
ORA B 
ORA C 
ORA D 
ORA E 
ORA H 
ORA L 
ORA M 
DRA A 
CNP B 
CNP C 
CNP D 
CHP E 
CHP H 
CHP L 
CNP N 
CMP A 
RNZ 

POP B 
187 40 
INP 0 
CNZ, dddd 
PUSH B 
ADI dd 
RST 0 
R2 

RET 

JZ dddd 
C2 dddd 
CALL dddd 
ACI dd 
RST 1 
RNC 

POP D 
JNC dddd 
QUT dd 
CNC dddd 
PUSH D 
SUI dd 
RST 2 
RE 

JC dddd 
IN dd 
CC dddd 
SBI dd 
RST 3 


FLAGS BASIC EQUIVALENT 


C) m» هو‎ CO CO C) COO CO CO X» CO CO CO CO m» CO CO m» C2 CO CD C9 CO هو‎ C3 m. هو‎ Co Co CO pop SD me Te m» m mmpypympmpm pp ppm DI P yy, m, m, PDP 


LET A=A XOR B 
LET A=A XOR € 
LET A=A XOR D 
LET A=A XOR E 
LET A=A XOR H 
LET A=A XOR H 
LET A=A XOR PEEK (HL) 
LET A=A XOR A 
LET A=A OR B 
LET A=A OR C 
LET A=A OR D 
LET AA OR E 
LET A=A OR H 
LET A=A OR L 
LET A=A OR PEEK (HL) 
LET A=A OR A 

A-B 

A-C 

A-D 

A-E 

8-8 

A-L 

A-PEEK (HL) 

A-A 
IF Zero=0 THEN RETURN 
B=PEEK (SP+1) :C=PEEK (SP) 
IF Zero=0 GOTO dddd 
GOTO dddd 
IF Zero=0 GOSUB dddd 
POKE SP+i,B:POKE SP,C 
LET A=Atdd 
505108 0 
IF Zero=i THEN RETURN 
RETURN 
IF Zero=i GOTO dddd 
IF Zero=i BÜSUB dddd 
GOSUB dddd 
LET A=Atdd+Carry 
6OSUB 8 
IF Carry=0 THEN RETURN 
D-PEEK (SP+1) :E=PEEK (SP) 
IF Carry=0 GOTO dddd 
OUT 8 
IF Carry=0 GOSUB dddd 
POKE SP+1,D:POKE SP,E 
LET A=A-dd 
GOSUB 16 
IF Carry=! THEN RETURN 
IF Carry=1 GOTO dddd 
LET A=INP (dd) 
IF Carry=1 GOSUB dddd 
LET A=A-dd-Carry 
805108 24 


DESCRIPTION | 

Logical XOR (Exclusive-OR) À with Biresult in À 
As AB but with C 

As AB but with D 

As AB but with E 

As AB but with H 

As AB but with L 

fis AB but with contents of memory addressed by HL 
As ۵8 hut with itself ie.LET A=0 

Logical OR A with B 

As BO but with C 

As 80 but with D 

As BO but with E 

As BO but with H 


. Bs BO but with L 


As BO but with contents of memory addressed by HL 

As BO but with itself: will remain unchanged but flags will alter 
Tests A-B and sets flags accordingly. No registers altered 
As BB but for A-C 

As BB but for A-D 

As BB but for A-E 

hs BB but for A-H 

As B8 but for A-L 

As 88 but for A-aeaory location addressed by HL 

As BB hut with itself:Will always set zero flag 

If zero flag not set return from subroutine 

Take top two bytes off stack and put into BC:SP-SP+2 

If zero flag not set jump to address dddd 

Juap to address dddd 

If zero flag not set jump to subroutinesput PC+3 on stack:SP=5P-2 
Put contents of BC onto stack:SP=SP-2 

8-bit addition of A and 8-bit number dd:result in À 

Juap to subroutine at address 0000:put PC*1 on stack:SP=5P-2 
If zero flag set return from subroutine 

Return from subroutine (by popping return address off stack) 
If zero flag set juap to address dddd 

If zero flag set juap to subroutine:put PC+3 on stack: 5P=5P-2 
Juap to subroutine at address dddd:put PC+3 on stack:SP=SP-2 
As Cé but plus 1 if carry flag set:result in A 

As £7 hut address is 0008 (hex) 

As CO but carry flag not zero flag is tested 

As Ci but register-pair involved is DE 

As C2 hut carry flag not zero flag is tested 

Sends number in A to output port dd (up to 256 allowed) 

As C4 but carry flag not zero flag is tested 

As C5 but register-pair involved is DE 

8-bit subtraction of 8-bit number dd from Asresult in A 

As C7 but address is 0010 (hex; 16 in deciaal) 

As CB but carry flag not zero flag is tested 

As CA but carry flag not zero flag is tested 

Read 8-bit nuaber on input port dd into A 

As CE but carry flag not zero flag is tested 

As Dé but less 1 if carry flag set:result in A 

As C7 but address is 0018 (hex: 24 in deciaal) 


dd=any 8-bit nuaber (0-FF). dddd=any 14-bit number (0-FFFF) 
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.E0 8 0 IF Parity=0 THEN RETURN As CO but parity flag not zero flag is tested 
El POP H A H=PEEK(SP+1):L=PEEK(SP) As C1 but register-pair involved is HL 
E2 JPO dddd 0 IF Parity=0 50۱0 dddd As C2 but parity flag not zero flag ia tested 
EJ HL 0 As POP HL(EI)*PUSH HL(ES) Contents of HL*top 2 bytes on stack exchanged:no change in SP 
E4 CPO dddd 0 IF Parity=0 50518 0 As C4 but parity flag not zero flag is tested 
ES PUSH H 0 POKE SP+1,D:POKE SP,E As C5 but register-pair involved is HL 
Eb AND dd A LET A=A AND dd Logical AND A with B-bit number dd:result in A 
E7 RST 32 0 8010 32 As C7 but address is 0020 (hex; 32 in deciaal) 
EB RPE 0 IF Parity=1 THEN RETURN As CB but parity flag not zero flag is tested 
E9  PCHL 0 6070 HL Juap to the memory location addressed by HL 
EA JPE dddd 0 IF Parity=1 6070 0 As CA but parity flag not zero flag is tested 
EB 86 ü HLzDE: DE=HL Exchange 14-bit nuabers in DE and HL (D-H:E-L:HzD:L-E) 
EC CPE dddd 0 IF Parity=1 BÜSUB dddd As CC but parity flag not zero flag is tested 
ED - = = à 
EE 181 dd A LET A=A XOR dd Logical XOR (Exclusive-OR) A with 8-bit nuaber dd 
EF RST 3 0 GOSUB 40 As C7 but address is 0028(hex; 40 in decisal) 
FO RP 0 IF Sign=0 THEN RETURN As CO but sign flag not zero flag is tested _ 
Fi POP PSN À A=PEEK SP*l:Flags-PEEK SP As Ci but register-pair involved is A+Flags. A is the high-order byte 
F2 JP dddd 0 IF Sign=0 GOTO 0 As C2 but sign flag not zero flag is tested 
F3 1 0 - Disable interrupts 
FA CP dddd 0 IF Sign=0 50518 04 As C4 but sign flag not zero flag is tested 
F3 PUSH PSH 0 POKE SP+i,A:POKE SP,Flags As CS but register-pair involved is A+Flags. A is the high-order byte 
Fo ORI dd A LET A=A OR dd Logical OR A with 8-bit number dd:result in A 
F7 RST 4 0 580518 48 As C7 but address is 0030{hex; 48 deciaal) 
F8 RM 0 IF Sign=! THEN RETURN As C8 but sign flag not zero flag is tested 
F? SPHL 0 LET SP=HL Load the stack pointer with the 16-bit contents of HL 
FA JM dddd Ü IF Sign=t GOTO dddd As CA but sign flag not zero flag is tested 
FB El 0 - Enable interrupts 
FC CM dddd ü IF Sign=1 GOSUB dddd As CC but sign flag not zero flag is tested 
FD - = e = 
FE CPI dd A A-dd Tests A ainus dd and sets flags accordingly. No registers altered 
FF 7 0 80518 56 As C7 but address is 0038(hex į 56 decimal) — 
Notes: 


dd is any 8-bit nuaber (0-FF) 3 
dddd is any 14-bit number (O-FFFF). All semory addresses are 14-bit. 
FLAGS:A=This operation affects all flags 
C=This operation affects the carry flag only 
X=This operation affects all flags except the carry 
O=This operation has no effect on the flags 
Sign : Set if ACO (in two’s complement i.e. 80 - FF) 
lero : Set if 0 
Parity: Set if there is an even nuaber of l's in the binary representation of A 
Carry : Set if the last operation caused A to go below 0 or above 255 


All instructions that have ‘dd’ in thea are followed by a one-byte number in the machine code prograa. Therefore 

the next instruction is one memory address after that. Instructions containing 'dddd' have a 16-bit nuaber following 
thes in the program and this of course needs two byte. Therefore the next instruction will be taken as that in the 
‘next memory location but two’. Also note that where 14-bit numbers are included in the program, they should be 
entered with the low-order byte first. i.e. to load HL with 9ABC, the code is 21 BC 9A not 21 9A BC. 


n.b. The BASIC used to describe the operations is not always exactly accurate, but it is as close as it is passible 
to get to siaulate the instruction. Note that on the DAI pc, the operators IXOR, IAND and IOR should be read for the 
BASIC equivalents of the XRA/I, ANA/I and ORA/I instructions. 


Dave Atherton 
10 April 1983 
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REM CHARACTER INVASION W. Hermans 


1e CLEAR 2000: GOSUB 10000:GOTO 30 

15 POS-SBSDD-KPOSs2:PUKE POS,32:POKE POS+154, 52: RETURN 

20 POS=#BSDD-KPOS#2:POKE POS, 255: POE POS+134, 11: RETURN 

3e V=RND (26) +65: NOISE @ 15 | 

35 POINT=POINT+1 

40 R=1+RND (66) s COL=TOP-R-R: SOUND OFF 

50 IF A(R)=@ THEN C{R)=V:A(R)=A(R) +134: POKE COL-A(R),V:GOTO 68 

55 IF A(R)<>0 THEN POKE COL-A(R),32:POKE COL~A (R) ~3, #FF: ACR) =A CR) 10 
KE TOP-R#2-A(R),C(R) 

56 IF A(R)>2689 THEN 2000:REM END 

60 G=GETC 

65 IF &<>18 THEN IF &<>19 THEN IF G<>C(KPOS) ‘THEN WAIT TIME 2:GOTO 30 
70 IF 6-18 THEN IF KPOS>1 THEN GOSUB 15:KPOS=KP0S-1:GOSUB 20 

89 IF 8-19 THEN IF KPOS<6@ THEN GOSUB 15:KPOS=KPOS+1:60SUB 20 

85 IF G=C(KPOS) THEN GOSUB 100 

70 6010 8 


109 NOISE 1 15:FOR X=A(KPOS) TO © STEP -134:S0UND 1 e 15 © FREG(50.@+x) 
119 POKE TOP-KPOS#2-X,32:POKE TOP-KPOSx2-X—3,0 

120 NEXT:SOUND OFF :A(KPOS)=0 

125 NOISE OFF 

130 RETURN 

2000 PRINT CHR$(12); 

2010 CURSOR 21,10:PRINT POINTS" POINTS" 

2015 CURSOR 15,8:PRINT "space-bar to play again" 

2020 G=GETC:IF G=@ THEN 2020 

2030 IF 6-32 THEN 10 

2040 END 

10000 MODE 6: PRINT CHR$(12) 

18818 COLORT 1 15 3 0 

10015 FOR X=@ TO 15:POKE #BFEF-X#134, #70+X: NEXT 

10020 TOP=#BFE7 

10025 POKE #BFEE-23#134,#C0 

19939 POKE 1475,52 

10040 DIM A(60.0) 

16947 DIM C(40.0) move base with cursor left/right, 
19059 KPOS=30: GOSUB 20 shoot invader by typing the character. 
10052 POINT=0 

10055 ENVELOPE @ 15 

19069 RETURN 


Datum 3 Programm : CHARACTER INVASION W.Hermans 


AAO „array, holding offset of characters (invaders) from upper line 
50, 55, 54, 100, 120, 10040, 

Cx 0 „array, holding the characters from each colum _ 
50,55, 45, 85, 10047, 

COL x „actual column to act upon ____ 
40,50,55, 

6 € GETC-variable 


KPOS X position of defender (1-60) 


15, 20, 65, 70, 80,85, 100, 110, 120, 10050, 
POINT % score 


35, 2010, 10052, 

POS % „real address of defender —— — ^ Lc 
15,20, 

RZ „random value for column-choice ^. 
40,50,55, 54, | 

TOP % _top-left character address (= H BFE7) —— 
40,55, 110, 10020, 

vz .random character (ASCII-value) —— 
30,50, 

x x .loop-variable ee 
100,110,10015, 
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PPROGRAMMEER-TECHNIERKFENS S € ۹ ۹ LL +‏ د د د د د د د 


Een vraag die ons vaak gesteld wordt is :Hoe schrijf je nu een programma in 
machinetaal? Veelal met opmerkingen erbij als "Ik heb nu DNA gekocht maar weet 
niet goed wat ik er mee aanmoet." of "die nieuwe assembler, die SPL is beter 
he, moet ik die nu maar kopen ?" 

Eerst even voor de goede orde de zaken op een rijtje zetten. In de DAI zit een 
microprocessor, de 860860 van de firma Intel al kan in uw DAI er best een zitten 
van NEC (licentie). Deze 8080 nu krijgt instructies die een,twee of drie bytes 
groot zijn. We kunnen de 8680 zelf direct instructies geven door eerst UT in 
te tikken en [return] natuurlijk en dan met bv 53000 de bytes vanaf #3000 te 
vullen met door ons gewenste instructies, U vult altijd maar een byte tikt U 
meer dan twee tekens (@ t/m F) dan neemt het monitor programma de laatste twee 
met de spatiebalk gaat U naar de volgende byte. Let er wel op dat de char.del. 
niet werkt ! Om het programma te laten uitvoeren kunt U terug in basic een 
CALLM#3000 geven zowel direct als in een programma. 

Laten we het eens gaan proberen: machine aan en UT Creturn] 

55606 [spatie] monitor geeft huidige inhoud van 3000, U tikt C? (de code voor 
return. U drukt cursor-left in en dan B en U bent weer terug in basic. Even 
proberen : CALLM#300@ en ja hoor met het sterretje van basic ziet U dat U uw 
eigen machine language program hebt laten uitvoeren en zonder ongelukken terug 
bent gekomen. Het nut van dit programma zal vrijwel een ieder ontgaan. Maar dat 
doet nu niet terzake. We komen straks op een nuttig programmaatje wat dan wel 
wat groter zal zijn. 


Grotere programma’s zijn op deze manier erg moeilijk te schrijven en men heeft 
daar wat op gevonden. Er is een programma gemaakt dat een voor mensen eenvou- 

dige taal omzet in machine-codes. Dit is vooral voor referenties veel handiger. 
De taal die we gebruiken is echter een compromis. Enerzijds voor mensen gemak- 
kelijker te begrijpen dan machinetaal-codes maar nog wel lastig omdat de machi- 
ne het ook gemakkelijk wil hebben. De taal waar ik het hier over heb is assem- 
bler. Deze taal is het gemakkelijkst te beschouwen als machinetaal met normale 
engelse woorden of afkortingen daarvan als instructies. Een paar voorbeelden: 


machine-taal assembler betekenis 
SE 85 MVI A, OS zet de waarde 45 direct in register A 
81 ADD C tel de inhoud van C bij A en zet antwoord in A 
CA 12 34 JZ LABEL ga naar adres als de zeroflag aanstaat dwz als 


de uitkomst van de laatste instructie die de 
vlag kan zetten nul is. 
Voor de instructie kan men in assembler een label zetten, zodat men daar naar 
toe kan gaan zoals bij basic het regelnummer. 
PAS OP in het voorbeeld gaan we naar LABEL dit staat op #3412 en niet op #1234 


Assembler is voor de machine vrij gemakkelijk te begrijpen dwz te vertalen in 
machine-code maar voor de mens nogal lastig. Doordat we zo dicht bij de machi- 
necode staan zal meestal alles veel sneller gaan. 

Om een programma te schrijven zullen we eerst precies moeten weten wat we wil- 
len maken. Is het programma niet te groot kunnen we het invoeren mbv Substitute 
of vanuit een basicprogramma mbv POKE. Als er echter sprongen in het programma 
zitten zullen ten eerste alle adressen zelf moeten uitrekenen en ten tweede 
zullen we veel adressen moeten veranderen als er achteraf wijzigingen in het 
programma komen. Ook de plaats waar het programma in het geheugen komt ligt op 
straffe van verandering van alle sprongadressen vast. 


Als U dus wil gaan programmeren in machinecode/assembler is het sterk aan te 
raden een assembleerprogramma aan te schaffen. (DNA of SPL) - 
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Basic is een taal die in structuur erg dicht bij assembler ligt. Iedereen weet 
dat het veel dichter bij de mens dan bij de machine staat maar de principieele 
opzet van de taal is toch vrij indentiek. Dit is een groot voordeel als we een 
combinatie van basic met machinetaal willen maken. 

Ik kan me voorstellen dat sommige mensen het verschil tussen assembler en ma- 
chinetaal weer onduidelijk gaat worden, daarom nog enige toelichting. We kun- 
nen niet een basicprogramma met een assembler ‘programma combineren omdat de 
vertaler alleen basic aankan en assembleerprogramma’s alleen assembler. Wel 
zouden we eerst het basicdeel om kunnen zetten in machinecode dmv een compiler 
en vervolgens het assemblerdeel omzetten in machinecode en die dan samenvoegen. 
Dit is echter een omslachtige methode die erg veel problemen zal geven bij het 
samenvoegen. Daarbij wie bezit er een basiccompiler voor DAI ? 

We zullen dus het liefst een basicprogramma schrijven en in dat basicprogramma 
indien dit voor de snelheid gewenst is dmv CALLM een machinetaalroutine aanroe- 
pen die het dan tijdelijk van basic overneemt. Deze machinetaalroutine kunnen 
we op een van de eerder besproken methodes op zijn plaats krijgen. 


We gaan nu een klein handig programmaatje maken in machinetaal. 

Ik heb hier gekozen voor een idee uit het vorige nummers namelijk het op nul 
zetten van de adressen #2B1 t/m #2B8 zodat we altijd respons verkrijgen op een 
GETC en zo dan reactie van de machine krijgen zolang de toets ingedrukt blijft. 
Voorbeeld in basic: 


19 FOR I%=#2B1 TO 42B8:POKE 1%, 0:NEXT 
20 HZ-GETC:IF H%4=@ GOTO 20 
30 PRINT CHR$(HX)5::GOTO 19 


Opmerkingen bij dit programmaatje 1) alles in integer rrt 
2) in regel 26 naar 26 terug en niet naar 9 
is wel goed maar trager en dat is juist in 
dit geval ongewenst. 
3) programma stopt na 4 regels. 
4) met rept werkt het trager ! 





First steps in machine language ... 
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Het op nul zetten kost tijd, zeker in basic, en we willen graag optimale snel- 
heid. Als er op meerdere plaatsen in het programma een GETC gedaan wordt waar 

we deze ‘rept’ willen gebruiken ligt een subroutine voor de hand maar die ver- 
traagt nog meer. We besluiten hiervoor een machinetaalroutinetje te schrijven. 


We nemen de lijst van 8686 mnemonics voor ons en bestuderen die grondig. We 
stellen vast dat er aan programmeren in assembler heel wat meer vast zit dan in 
basic. Een eenvoudige loop moeten we zelf schrijven er bestaat niet zoiets als 
FOR — NEXT, we kunnen alleen maar optellen en aftrekken; vermenigvuldigen, del en 
machtsverheffen en vele andere zaken zullen we zelf moeten doen. 

Maar niet te veel geklaagd, we behoeven maar @ bytes op nul te zetten en dat 
kan toch niet al te veel problemen opleveren. 


We selecteren na wat denkwerk de volgende instructie "SHLD addr? die de inhoud 
van het H en L register op het aangegeven adres plaatst. 
Dwz SHDL 3606 zet de inhoud van L op 3666 en de inhoud van H op 3661:0mdat we 
H en L toch beide nul maken doet de volgorde er niet toe. Om de registers He L 
op nul te zetten zijn er vele methodes, we kiezen voor een vrij gebruikelijke 
LXI H‚@. Deze instructie vult de registers H en L met het adres (maar dat kan 
ook een gewone waarde zijn) dat er achter gegeven wordt. Ook hier weer de eer- 
ste byte in L en de tweede in H, voor ons niet van belang omdat beide met nul 
gevuld worden. Omdat we maar acht bytes te vullen hebben willen we geen loop 
maken maar rechttoe rechtaan programmeren. Dit biedt ons de volgende voordelen 
7 geen sprongadressen dus programma overal te plaatsen en zonder veranderingen 
te verplaatsen 
- programma werkt nog sneller 
- minder kans op fouten zeker zonder assembleerprogramma 


We schrijven het programma: 
In assembler : 


LXI لق‎ ® 
SHLD 2B1 
SHLD 2B3 
SHLD 2B5 
SHLD 7 
RET 


In machinecode wordt dit 21 @@ ea 22 Bi @2 22 B3 62 22 BS 02 22 B7 02 C9 


Als we dit programma ergens in het geheugen neerzetten is er echter toch een 
grote kans op een crash. Als we namelijk terugkeren naar basic staan de regis- 
ters H en L op een andere waarde dan zij aan het begin van de routine en om 
alle eventuele problemen te voorkomen beginnen we onze routine met PUSH H en 
eindigen we hem met POP H. In machinecode ES en Ei. Pas op ik heb meegemaakt 
dat iemand dit zo letterlijk nam dat hij de POP H na de RET zette en dan wordt 
hij natuurlijk niet meer uitgevoerd. En tweede risico is dat U in een routine 
een mnemonic gebruik die een vlag zet zonder dat U daar gebruik van maakt, er 
wordt dan nogal snel vergeten cok een PUSH PSW resp POP PSW te doen. 

Een verstandige vuistregel voor programmeurs die niet zeker weten wat ze doen 
of gaan doen is aan het begin van elke routine alles te pushen (op stack zet- 
ten) en aan het eind van die routine alles te pappen (van stack halen) 
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De machinecode wordt nu: ES 21 66 a6 22 Bi 62 22 B3 02 22 BS 02 22 B7 02 Ei C9 
De routine is vrijwel overal te plaatsten, we gaan de mogelijkheden langs: 


- We plaatsen de routine in de zeropage (0 t/m 2EB) Dit is een goede oplossing 
maar we moeten er wel zeker van zijn dat de gebruikte adressen niet door ons 
programma gebruikt worden. Bestudering van de zeropage levert eigenlijk maar 
een bruikare plaats op voor kleine machinetaalprogramma’s nl de bytes van 1F5 
t/m 274 waar de envelopes in worden bewaard. Gebruikt U een kleine of geen 
ENVELOPE in uw programma is hier een mogelijkheid. 


- Voor de heap: Vele machinetaalroutines (FGT oa) hebben deze mogelijkheid be- 
nut. Voordat we ons programma plaatsen zetten we de start-heap (29B-29C) op 
een adres boven ons machineprogramma en geven dan in basic een NEW of CLEAR. 
We heben dan nooit problemen met basic en mlp gecombineerd. 


- In de heap. We definieren een array of string en zetten ons programma dan 
daarin.Voordeel is dat grotere programma’s als array in te lezen zijn en dat 
geen pointers aangepast behoeven te worden. Nadeel is dat basicprogramma niet 
meer helemaal vrij is; de array of string die gebruikt wordt mag niet verzet 
worden dus geen andere er later voor zetten en programma moet altijd beginnen 
met het plaatsen van het ۰. 


- In het basicprogramma: De mogelijkheden hiervoor als we het niet te ingewik- 
keld willen maken zijn in een REM of PRINT statement. 
Voordeel-programma volledig te editten en te listen, geen pointers aanpassen, 
en alles in een keer weg te schrijven. Nadeel-programma moeilijk te plaatsen 
en aan te roepen. Alleen toepasbaar voor kleine mlp's die liefst geen sprong- 
adressen bevatten. 


- tussen basicprogramma en symboltable:lastig te plaatsen maar wel veilig. 
eventueel hier plaatsen voor "meesaven’ maar elders plaatsen voor werken. 


- In symboltable: als vorig punt maar gemakkelijker te plaatsen aan het eind 
Echter pas op met verplaatsen als de plaats opgezocht wordt via de end sym- 
boltablepointer (2A5-2A4) omdat die misschien iets verkeerds aanwijst. 


- In de vrije RAM dwz tussen end of symboltable en bottomscreen. Pas op dat 
tijdens run het programma niet gewist wordt door een grotere MODE, of dat U 
zelf met edit alles verruineert. 


- In de ROM: twee mogelijkheden in eprom zoals memocom doet of in de stack. 
De laatste mogelijkheid is erg gevaarlijk.Je moet goed weten wat je doet in 
dat geval, DBL werkt bv op deze plaats. 

Extraatje:programma in de stack werkt sneller, 


Er zijn nog andere argumenten dan de genoemde om voor of tegen een bepaalde 
plaats te kiezen, maar ik wil niet al te diep graven. 

Ik wil echter nog wel een laatste verandering aanbrengen in het programma. Ik 
wil voorkomen dat men de routine steeds opnieuw moet aanroepen maar dat dit au- 
tomatisch geschiedt. Hiervoor kies ik de methode van de interrupt op tijdsbasis 
Elke 2@ ms wordt er een tijdsinterrupt gegeven en die interrupt wordt gegeven 
op vector 7. Dat wil zeggen elke 20 ms komt er automatisch een sprong naar in- 
terruptvector 7. Deze interruptvector zet registers H en L op de stack, laad de 
registers H en L met de inhoud van de adressen 76 en 71 en zet dan de inhoud 
van de registers H en L in de programcounter. Dit betekent dat het programma 
verder gaat met de instructies die gevonden worden op het adres dat staat op 
adres 70/71 en de oude inhoud van de registers H en L op stack staan. 

Een ingewikkelde maar toch wel doordachte methode. 


We kunnen nu deze interrupt routine ondervangen door de adressen op 70/71 te 
wijzigen in het adres waar onze routine staat. We behoeven de routine dan niet 
meer aan te roepen want dit zal automatisch elke 20 ms (50 maal per seconde) 
gebeuren. Wel moeten we er voor zorgen dat de normale interrupt 7 afhandeling 
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kan plaatsvinden, we zullen ons programma dan ook niet mogen eindigen met een 
RET (C9) maar met een sprong naar de normale afhandeling van interrupt 7. 
Dat is adres DIAS dus ipv C9 zetten we nu C3 A? DI (weet U nog, omgekeerd 71 


Maar er zijn nog een paar problemen. De interruptbehandeling zal zelf niet door 
een andere interrupt onderbroken mogen worden dus beginnen we de routine met DI 
disable interrupts (F3). Om reden van programmeringsfatsoen zetten we de inter- 
rupts aan het eind van onze routine weer aan met EI-enable interrupts (FB). 


Ons programma wordt nu in machinecode: 
F3 ES 21 00 00 22 Bi 02 22 B3 02 22 BS 62 22 H7 02 El FB C3 A? D? 


Nu alleen er nag voor zorgen dat de interrupt afhandeling naar de routine gaat. 

Het lijkt simpels verander het adres op 76 en 71 in het adres waar de routine 

staat, bv dmv PÜKE's. Maar als we adres 76 gePOKEd hebben en precies op dat mo~ -/ 

ment komt er een interrupt op vector 7 is het adres wat er dan op 76-71 staat 

noch het oude noch het nieuwe adres. Er zijn twee oplossingen: 

1) Zorg er voor dat de routine staat op adres xxA9 zodat slechts een byte ver- 
anderd hoeft te worden. 

2) schrijf een extra klein mlp dat 70-71 met het gewenste adres vult na de in” 
terrupts uitgezet te hebben. 


Een volgende mogelijkheid is niet in een programma maar in direct mode UT en 
dan V7 dit geeft dan D9A9 en verander dit dan in het gewenste adres. Groot na- 
delen hiervan zijn - niet in programma en terugzetten op oude waarde lastig 
want als U bv UT tikt staat er op beeld gelijk UUUUUUUTTTT en dat geeft SYNTAX 
ERROR. We vonden echter een zeer fraaie oplossing. De interruptroutine staat 
van 38 t/m 3F.De laatste twee bytes hiervan (3E-3F) zijn ongbruikt. De routine 
laadt dmv het adres 6070, dit wordt genoemd op 3B-3C. Nauwkeuriger 3B bevat 74 
en 3C bevat 60. We zetten nu het adres van onze routine op 3E-3F (omgekeerd!) 
en kunnen onze rept aanzetten met POKE #3B,#3E en uitzetten met POKE $43B,970. 
En omdat de registers H en L toch op stack gezet worden kunnen we de PUSH en 
POP weglaten. Hieronder een basicprogramma dat een en ander demonstreert. 


met dank aan Nico en Just 


Frank H. Druijff 


14 A$="machine language program" 

20 =VARPTR (AS) : PI=PEEK (P) : P2=PEEK (P+1) :P=P1+P2#256 

3e FOR I-1 TO 22:READ A:POKE P+1,A:NEXT:P=P+1 

40 POKE #3E,P MOD 256:PUKE #3F,P SHR 8:POKE #358, #SE 

5e H=GETC: IF H=@ GOTO Se: IF H=9 THEN POKE #3B, #70: END 

69 PRINT CHRS$ (HI 5 : GOTO 0 

99 DATA #F3,#E5,#21,0,0, #22, 8B1, 2, 822, 8B3, 2, 422, #85, 2, 822, #57, 2, REL, HEB, CS, A9, HDF 


18 A$-"mlp":FOR I=1 TO 2@:READ A: A$=AS+CHR$ (A) : NEXT 

20 P=VARPTR (A$) : P=PEEK (P) *PEEK (P+1) #256+4 

3e POKE #3E,P MOD 256:POKE #3F,P SHR 8:POKE #358, #5E 

49 H=GETC: IF H=@ GOTO 40: IF H=9 THEN POKE #3B,#70:END 

S36 PRINT CHR#(H)5:GOTO 40 

99 DATA #F3,#21,0,0, #22, #B1, 2,422, 8B3, 2, 822, #B5, 2, 822, 887,2, FFB, HCS, #47, #D9 
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DAIL RESTART FLT NES 


DAI BASIC and the internal operating system are written 
in a way that they are hard to extend. Only the Input/Output 
(Cassette, Keyboard, RS 2320, DCE bus, Memorymanagement and 
the EmergencyStop) can be defined by the user. 


With the above mentioned routines you can define your 
own 1/0 routines (like the MEMOCOM MDCR the Tape operating 
system checks the input from keyboard and if a «RETURN? is 
given then it checks for DCR commands. ) 


This method works before the internal BASIC ‘takes over" 
and in a program you have to use a CALLM statement to work 
with the MDCR. But there are other ways to extend BASIC and te 
internal operating system. One for instance is the method the 
DAI uses to switch ROMbanks. In the DAI-ROMS the addresses 
EOOO-EFFF exist 4 times. They are referred to as bank 0,1,2,3. 
Which of the four banks is selected is determined by the 
two highest (6,7) bits of addres #FDO6 and a duplicate is held 
in addres #40. In BASIC the routine looks like this: 

POKE #FDO4, (PEEK (#FDO6) IAND #3F) IOR (BANENUMBER SHL 6) 
and the same for addres #40, Don’t try this because BASIC uses 
Bank © ! 


Internally the DAI uses the same method to switch banks 
Whenever a CALL is made to bank 1,2,3 this can't be done in a 
direct way by a CALL instruction because a CALL doesn't switch 
banks. For this purpose the special 8080 CALL’s the RST X 
(X=0-7) and a databyte are used. These RST X are one byte 
CAlLinstructions and the databyte is fetched in actual RST 
routine and then the return addres is incremented by one to 
return after the databyte. This databyte is an offset fram 
E000 in the selected bank. 


Ta switch banks the following RST X are used; 
RST 4 switches to bank 1 Math & Sound package 
RST 5 switches to bank 2 Screendriver/Edit 
RST 1. switches to bank 3 Encoding/Utility 

ALL NUMBERS IN HEXADECIMAL NOTATION ! 

For instance the routine to print one character on the screen 
is RST S,DATA 3 (EF OD this is a CALL to BANK 2 address 7. 
The A register contains the ASCII value of the character. 
The RST 5 instruction is a CALL to addres 28 (=G* 5 =40D). 
At 28 the following instuctions prepare for bankswitch3 


2g NOF 00 
29 '" PUSH H E1 
28 LHLD OO6C 2A sc OO 
2D FCHL. E9 
2E NOF oo 
2F NOP ون‎ 


At addresses 60/6D there is FD Có, so a jump will be performed 
to C6FDH with the original contents of the HL registerpair on 
top of the stack. Because all of this is in RAM you can change 
the contents of addresses 6C/6D or 2B. In Utility by the 
V-command e.g. MB CAFD-300 cursor left». This forces RST 5 
to continue at addres 300 or where your own program is 
located. A good example is the APPLE/ATARI conversion program 
which was published in an earlier magazine. 


Using this method you can manipulate all the functions 
in bank 1 to 3 as shown above and even in bank O. 
Very useful in this method is RST S,DATA 3 this routine is 
used for everything (except messages during LOAD/LOOK and VER) 
that has to be printed on the screen. 
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This routine is used by PRINT,LIST and all DAI messages 
thus we can change all these routines by checking or changing; 


1) the contents of the 8080 registers A-L 
2) the stackpointer . 

3) the returnaddres 

4) the databyte after RST X 


To do this we need to know the contents of the registers, 

the purpose of the RST X (value of databyte) or the stackpointer 
value at the moment the RST X is started or the caller of the 
RST X. (People who have na knowledge of the firmware can study 
the routines published in earlier magazines or the Firmware 
manual of J. Hoerrigter.) The most important thing is to check 
the databyte because this determines which routine is called, 
and the contents of the registers. 





As an example we will take RST 5, DATA 3 and assume that our 

own routine starts at #300. How to find the databyte ? After 

the RST X is executed there will be a returnaddres on stack this 
addres is the addres of the databyte because it points directly 
after the RST X instruction. Then before the jump is made ta 

your own routine the HL registerpair is PUSHed on stack (see 
example first page). 

in our example the A register is checked after we’ve found 

that the databyte is 3. If the character is uppercase it will 

be converted to lowercase. 

The Basic interpreter won't recognize lowercase commands. To change 
this we have to take action. We have to change lowercase commands 
into uppercase again. This can be done . The interpreter uses a 
routine to get characters from the screen (ram). This routine 

is RST S,DATA 15. 

We have to change the returnaddres after this routine kä our 

own routine and then check if the character just fetched is 
lowercase and convert it to uppercase. This way the interpreter 
accepts the commands. The total routine will look as follows: 


LOWERCASE COMMANDS 





300 POP H retrieve HL from stack 

301 XTHL. sexchange HL/top of stack 
sreturnaddres is in HL 

5072 PUSH FSW save PSW 

303 MOV A,M $get contents of returnaddres 

304 CPI SH sis it databyte to print one 
character on the screen 7 

30S JZ UP low 

309 CFI 15H $is it databyte to get one 
scharacter from screen ? 

SOR JZ lowUF 

SOE outo FOF PSW srestore stack and continu 

SOF out XTHL SRST 5 if not the proper routine 

310 FUSH H 

311 JMP OC&FDH normal RST 5 addres 

320 UF low LDA 119H sis it during input then 

3253 CPI OFFH signore charactertype 

325 JNZ auto 

328 FOP PSW sGet ASCIIvalue in A again 

329 CPI =A? ۵و‎ then no action 

SAE JC out 

32E CFI oU نز و‎ 27 then no action 

330 JNC out 

333 ORI 20H sconvert it to lowercase 

3385 JMP aut 

258 lowUP FOP FSW retrieve PSW 
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348 
34B 
34D 
350 
352 
353 
354 
355 


356 


In this routine 
commands so you 


return 


aut 


INX H 
XTHL 
PUSH H 
LXI H 
XTHL 
PUSH H 
JMP 


DE 
PUSH FSW 


END 


can mix 


return 


OC SF DH 


sset the returnaddr after the 
data byte 

ıHL=original HL/top of stack= 
sold returnaddresti 

save HL 

sreturnaddr to our own routine 
ıHL=original HL/top of stack= 
inew returnaddres 

stop of stacksorig. HL 
continu RST 5 and return to 
sour own routine 


sdatabyte after the returnaddres 
preserve flags 

sa" then no action 
pe a" then no action 


sconvert it to uppercase 
get flags in L 


scharacter in H 


srestore HL 

irestore PSW 

390 back to the old returnaddres 
safter the databyte 


the conversion is disabled during input of BASIC 
upper- and lowercase. 


All listings 


even in utility or with the DNA assembler will be in lowercase. 


As an example we will take the ERRORroutines in the DAI. 


Sometimes 
returnaddres if 


it will 
we want 


not be enough to know the databyte or the 
to change a routine because the routine which 
uses different other routines before a RST X instruction is used. 


If we want 


to make an ON ERROR GOTO routine there is a point where we can trap 


this routine before the execution is stopped. 


This point is just 


before the message is printed. This message is printed by (again) 


RST S,DATA 3. 
have to check the stack and the stackpointer. 


To find aut if an ERRORmessage is printed we 


Because everytime a 


different routine is CALLed it leaves a returnaddres at the top 

of the stack and the stack pointer is decremented by two. 

This means we can find the ERROR returnaddres somewhere on te stack. 
Because we can check the stackpointer by means of the DAD SP 
instruction and we know how many subroutinelevels are at the 

stack we always know if the original CALLer is the ERRORroutine. 
With this knowledge we are going to treat the stack as normal 


memor y . 


We add the stackpointer to two times the subroutinelevel | 


and get the returnaddres by means af the MOV A,M instruction. 
If we have found an ERROR than the BASICprogram is continued 

‚before a message is printed, 
If the line specified does not exist errors are enabled and 
a UNDEFINED LINENUMBER message will be printed. 

See the example on the next page. _ 


the DAI BASIC & operating system. 
with a little copying and altering ROMroutines. 


at a user specified line. 


Using the methods described above it is possible to extend 


Sometimes very easily sometimes 
I wrote a pro- 


gram using this method of about 500 bytes which makes it possible 
to extend BASIC with 65 new BASICcommands fully compiled to standard 


DAI BASIC format. 
of this method. 


This just as an illustration of the power 
I hope this article will give you an idea how 


to interact with DAI BASIC and ta do more with your DAI. 


N.P. Looije 
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HILFE ich möchte meinen Computerplatz ausbauen! NEN 
Das Geld liegt bei mir in nicht gebrauchten Geräten fest. he 
Erbitte kollegiale Hilfe, Vielleicht haben Sie im Geschäft M 
oder prívat Bedarf für: 


Dosierpumpe mit Schrittmotor, max. 100 ml/min, mit digitalem Multi- 
plikator 1, Sfuersignal 4-20 mAdc. Neupreis Fr4000. ungebraucht. 

Thermodrucker 17 Zeichen & autom, Balken/Strichdiagramm aus BCD oder 
binär parallel Anschluss.In &eháuse,220V,Von Ziegler. Neu Fr.1700.- 


Lótkolben Butagas 100 W, flammenfrei mit Katalysator Brennkammer, 
heizt 2 Std. Restbestand aus Grosseinkauf.Pistolenform.Fr 44.- 


Geregelte Stromquelle 4-20 ma, für Versuche, im Gehäuse, passt 


zur Pumpe 3 


Stab. Stromversorgung 9/15 v, 5A, kurzschlusssicher 90.- 
do 5V 1A do 130.- 


Fairchild Kassettenfilmprojektor für Werbung, gebraucht 250.- net 


Anlass-Strom Begrenzer 1 Ph 3KW 220 V für Motoren 100.- 
Wolf Stichsäge Nr 16 40.- 
Lichtregler 400 W Schuko, UFO Modell 40.— 


Dachgepäckträger zu Peugeot 204, Montage mit Dach- 
schrauben (Original), 100 Kg zugelassen.Nicht Regenrinne/ 
gebraucht. 50.- 


Nordmende Globetrotter 13 KW,UKW,MW,LW,Schiffswelle, 
mit Autohalterung. OK, nur UKW rev, bedürftig 100.- net 


Engl. Leichtfahrad,<lOkg, 3Gang, faltbar in Tasche verstaut 
als Handgepück transportierbar, dann sehr klein 600.- 


Olympus Pearlcorder SD3 mit LCD Zühler/Uhr, UKW -108MHz 
Sprachsteuerung,Tel-pickup, Etuis, viele Mikrokassetten 850.- 


Schalenkoffer 60x45x15 cm innen, für Demogerät 150.- 
DAI DCE Designers Handbook 60.- 


Folgendes nur für Abnehmer in der Schweiz 


Hängemappenkoffer für Mobilmappen 90.- 
Hängemappen Vetro Lateral v. Fürrer Patent 2.- 
Ablegeschachteln, billigster Fachschriftenordner l.- 


Zu den Preisen: Wo nicht anders vermerkt (gebraucht,net) sind 
Neupreise genannt, und die Sachen sind neu oder nur wenige Std. 

in Betrieb. Ich erwarte deshalb ein angemessenes Angebot, anderer- 
seits hoffe ich, Insertionskosten zu sparen, was dem jetzigen 
Anbieter zum Vorteil gereicht. 


21.3.83 
E. Zahner, CH 8910 Affoltern, Tel 01-7617872 
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